home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / runtime.el < prev    next >
Encoding:
Text File  |  1994-05-31  |  1.2 KB  |  42 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;; Copyright (C) 1993, 1994 Marc Parmet.  All rights reserved.
  4. ;;;
  5. ;;; GNU Emacs is distributed in the hope that it will be useful,
  6. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  7. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  8. ;;; GNU General Public License for more details.
  9. ;;;
  10.  
  11. ;;;
  12. ;;; This file is read after ~emacs/lisp/term/Macintosh-win.el is read at startup.
  13. ;;;
  14.  
  15. (require 'mac-dumptime "mac/dumptime")
  16.  
  17. ; pascal OSErr
  18. ; CreateObjSpecifier(    DescType desiredClass,
  19. ;                        AEDesc *theContainer, 
  20. ;                        DescType keyForm,
  21. ;                        AEDesc *keyData, 
  22. ;                        Boolean disposeInputs,
  23. ;                        AEDesc *objSpecifier )
  24. (deftrap CreateObjSpecifier ("4eb9"
  25.                              (lsh CreateObjSpecifier -16)
  26.                              (logand CreateObjSpecifier 65535))
  27.   ((desiredClass immediate-string)
  28.    (theContainer address)
  29.    (keyForm immediate-string)
  30.    (keyData address)
  31.    (disposeInputs char)
  32.    (objSpecifier address))
  33.   short)
  34.  
  35. (load "mac/apple-events" nil t)
  36. (load "mac/core-suite" nil t)
  37. (load "mac/menu-install" nil t)
  38. (setq accept-high-level-events t)
  39. (make-clipboard-current)
  40. (modifiers:initialize)
  41. (provide 'mac-runtime)
  42.